DEMO BASIC PROGRAM


   0>REM Sorting Variables
         listing 4
      by Stewart Nicholls
    from Your Computer, May'83
   1 FOR a=1 TO 2: NEXT a
   2 DIM b$(7)
   3 LET c$="w"
   4 DIM d(7)
   5 LET e=1
   6 LET details=1
   7 LET A=1
   8 LET B=1
   9 LET C=1
  10 LET D=1
  11 LET E=1
  12 LET F=1
  13 LET G=1
  14 LET H=1
  15 LET I=1
  16 LET J=1
  17 LET K=1
  18 LET L=1
  19 LET M=1
  20 LET N=1
  21 LET O=1
  22 LET P=1
  23 LET Q=1
  24 LET R=1
  25 LET S=1
  26 LET T=1
  27 LET U=1
  28 LET V=1
  29 LET W=1
  30 LET X=1
  31 LET Y=1
  32 LET Z=1
  33 LET D$=":"
  34 LET F$="2"
  36 LET DEFINE=3
  37 FOR l=1 TO 10: NEXT l
  38 LET data=2
  39 LET origin=3
  40 LET print=1
  50 LET help=1
  51 LET a$="e"
  52 LET g$="o"
  53 DIM v$(8)
  54 FOR h=1 TO 2: NEXT h
  55 FOR w=34 TO 35: NEXT w
  56 LET d$="a"
  57 LET m$="i"
  58 FOR x=1 TO 4: NEXT x
  59 FOR z=1 TO 5: NEXT z
  60 DIM s(1)
  61 DIM f(7)
  62 DIM j$(8,7)
  63 DIM b(2)
  64 FOR o=1 TO 2: NEXT o
  86 LPRINT "DEMO BASIC PROGRAM"
  87 LPRINT ''
  88 LLIST
 500 LPRINT '''"SCREEN COPY OF A
BOVE"
 510 RANDOMIZE USR 31900
 515 LPRINT '''
 520 COPY
 550 LPRINT '''"MACHINE CODE DUM
P"
 560 LPRINT ''"MAY BE LOCATED AN
YWHERE IN      AVAILABLE MEMORY"
 570 LPRINT '''
 600 FOR a=31900 TO 32210 STEP 8
 610 FOR b=0 TO 7
 620 LPRINT TAB b*4;PEEK (a+b);
 630 NEXT b: NEXT a: STOP
9998 CLEAR 31899: LOAD "variable
s"CODE 31900,312: GO TO 1
9999 SAVE "basicvars" LINE 9998:
 SAVE "variables"CODE 31900,312



SCREEN COPY OF ABOVE



FN  $() $ NO.() NO. (WORD) NO.

a   b   c   d   e   details
h   v   f   s   b   define
l   j   a   f   c   data
o       g   b   d   origin
w       d       f   print
x       m       g   help
z               i
                j
                k
                m
                n
                p
                q
                r
                s
                t
                u
                v
                y




MACHINE CODE DUMP


MAY BE LOCATED ANYWHERE IN
AVAILABLE MEMORY



62  1   205 155 34  253 54  83
15  62  2   205 1   22  205 107
13  62  2   205 1   22  62  22
215 175 215 175 215 62  70  215
62  78  215 62  143 215 62  32
215 62  36  215 62  40  215 62
41  215 62  143 215 62  36  215
62  143 215 62  78  215 62  79
215 62  46  215 62  40  215 62
41  215 62  143 215 62  78  215
62  79  215 62  46  215 62  143
215 62  40  215 62  87  215 62
79  215 62  82  215 62  68  215
62  41  215 62  32  215 62  78
215 62  79  215 62  46  215 6
14  62  2   33  0   91  119 35
16  252 6   6   175 33  3   91
119 35  35  198 4   16  249 42
75  92  34  176 92  17  2   91
126 254 128 200 230 224 254 224
40  30  19  19  254 192 40  24
19  19  254 64  40  18  19  19
254 128 40  12  19  19  254 96
40  6   19  19  24  2   24  210
237 83  0   91  26  254 22  32
38  229 213 118 253 203 1   110
40  249 253 203 1   174 6   21
205 0   14  6   6   33  2   91
53  126 254 1   32  1   52  35
35  16  245 209 225 24  209 126
230 31  198 96  245 62  2   205
1   22  62  22  215 42  0   91
126 52  215 35  126 215 241 215
42  176 92  203 110 32  8   35
94  35  86  25  35  24  167 203
118 32  18  35  126 203 127 32
3   215 24  247 230 127 215 17
6   0   25  24  145 203 126 40
246 17  19  0   25  24  135 0
